From 93d35499193bf53af67613791d199d5f3e90f265 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Jun 1993 20:06:34 +0000 Subject: [PATCH] Fix typos in previous change. Add a few menu items. (bibtex-name-alignment): Renamed from bibtex-name-alignement. --- lisp/textmodes/bibtex.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 473081d162d..8e8e85590c7 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -544,7 +544,7 @@ bibtex-reference") (defconst bibtex-text-in-string 2 "The regexp subexpression of the text part in bibtex-string") -(defconst bibtex-name-alignement 2 +(defconst bibtex-name-alignment 2 "Alignment for the name part in BibTeX fields. Chosen on aesthetic grounds only.") @@ -1020,7 +1020,7 @@ as such should normally be set via a file local variable entry.") (let ((name (if (consp e-t) (car e-t) e-t)) (value (if (consp e-t) (cdr e-t) ""))) (insert ",\n") - (indent-to-column bibtex-name-alignement) + (indent-to-column bibtex-name-alignment) (insert name " = ") (indent-to-column bibtex-text-alignment) ;; lucid emacs prin1-to-string breaks the undo chain. When they fix @@ -1485,7 +1485,7 @@ an undefined location. ;;; Menus for bibtex mode (define-key bibtex-mode-map [menu-bar entry-types] - (make-sparse-keymap "Entry Types")) + (cons "Entry Types" (make-sparse-keymap "Entry Types"))) (define-key bibtex-mode-map [menu-bar entry-types bibtex-InProceedings] '(" article in conference Proceedings " . bibtex-InProceedings)) @@ -1500,7 +1500,7 @@ an undefined location. (define-key bibtex-mode-map [menu-bar entry-types bibtex-MastersThesis] '(" Master's Thesis " . bibtex-MastersThesis)) ;define-key bibtex-mode-map [menu-bar entry-types bibtex-DEAthesis] -'((" DEA Thesis " . bibtex-DEAthesis)) +;'((" DEA Thesis " . bibtex-DEAthesis)) (define-key bibtex-mode-map [menu-bar entry-types bibtex-PhdThesis] '(" Phd. Thesis " . bibtex-PhdThesis)) (define-key bibtex-mode-map [menu-bar entry-types bibtex-TechReport] @@ -1523,7 +1523,7 @@ an undefined location. '(" preamble " . bibtex-preamble)) (define-key bibtex-mode-map [menu-bar move/edit] - (make-sparse-keymap "Bibtex Edit")) + (cons "Bibtex Edit" (make-sparse-keymap "Bibtex Edit"))) (define-key bibtex-mode-map [menu-bar move/edit bibtex-next-field] '(" next field " . bibtex-next-field)) @@ -1534,11 +1534,17 @@ an undefined location. (define-key bibtex-mode-map [menu-bar move/edit bibtex-pop-next] '("snatch from similar following field" . bibtex-pop-next)) (define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-OPT] - '(" remove OPT " . bibtex-remove-OPT) + '(" remove OPT " . bibtex-remove-OPT)) (define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-double-quotes] '(" remove quotes " . bibtex-remove-double-quotes)) (define-key bibtex-mode-map [menu-bar move/edit bibtex-clean-entry] '(" clean up entry " . bibtex-clean-entry)) +(define-key bibtex-mode-map [menu-bar move/edit find-bibtex-duplicates] + '(" find duplicates " . find-bibtex-duplicates)) +(define-key bibtex-mode-map [menu-bar move/edit sort-bibtex-entries] + '(" sort entries " . sort-bibtex-entries)) +(define-key bibtex-mode-map [menu-bar move/edit validate-bibtex-buffer] + '(" validate entries " . validate-bibtex-buffer)) ;; Please don't send anything to bug-gnu-emacs about these Sunwindows functions -- 2.30.2